home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / programs / cdindex / creaindice < prev    next >
Text File  |  1997-04-03  |  2KB  |  71 lines
  1. setenv title CreaIndiceCD 2.0
  2. setenv body1 CreaIndiceCD v2.0  ©1997 by Diego Nova*n*n
  3. setenv body2 Questo programma ti permette di creare*n
  4. setenv body3 un file .INDICE di un CD-ROM, nel formato*n
  5. setenv body4 leggibile da CDIndexer 2.0® e CDFind 2.0®*n
  6. requestchoice >env:risp "$title" "$body1 $body2 $body3 $body4" "Continua|Annulla"
  7. IF $risp VAL EQ 0
  8.     skip abort
  9. ENDIF
  10.  
  11. setenv title CreaIndiceCD 2.0
  12. setenv body1 Dopo questa schermata ti verrà presentato*n
  13. setenv body2 un requester in cui dovrai selezionare la*n
  14. setenv body3 destinazione per il file .INDICE cha verrà*n
  15. setenv body4 generato.*n
  16. requestchoice >env:risp "$title" "$body1 $body2 $body3 $body4" "Continua|Annulla"
  17. IF $risp VAL EQ 0
  18.     skip abort
  19. ENDIF
  20.  
  21. requestfile >env:dest DRAWER "SYS:" PATTERN "~(#?.info)" TITLE "Seleziona la destinazione del file INDICE" DRAWERSONLY
  22. IF WARN
  23.     skip abort
  24. ENDIF
  25.  
  26. setenv title CreaIndiceCD 2.0
  27. setenv body1 Ora ti verrà richiesto di scegliere la*n
  28. setenv body2 directory (su CD-ROM) da cui partire per*n
  29. setenv body3 creare l'indice.*n
  30. requestchoice >env:risp "$title" "$body1 $body2 $body3" "Continua|Annulla"
  31. IF $risp VAL EQ 0
  32.     skip abort
  33. ENDIF
  34.  
  35. requestfile >env:sorg DRAWER "SYS:" PATTERN "~(#?.info)" TITLE "Seleziona la directory sorgente" DRAWERSONLY
  36. IF WARN
  37.     skip abort
  38. ENDIF
  39.  
  40. cd $sorg
  41. list >RAM:T/INDICEFILES.TEMP ALL ~(#?.info) LFORMAT "%E~%P%N~%L"
  42. CreaIndiceCD $sorg $dest >NIL:
  43.  
  44. lab successful
  45. setenv title CreaIndiceCD 2.0
  46. setenv body1 Indice Creato.*n
  47. setenv body2 Ora puoi utilizzare CDIndexer o CDFind*n
  48. requestchoice >env:cancel "$title" "$body1 $body2" "OK"
  49.  
  50. skip exit
  51.  
  52. lab abort
  53. setenv title CreaIndiceCD 2.0
  54. setenv body1 Programma Abbandonato
  55. requestchoice >env:cancel "$title" "$body1" "OK"
  56.  
  57. lab exit
  58.  
  59. unsetenv sorg
  60. unsetenv dest
  61. unsetenv title
  62. unsetenv body1
  63. unsetenv body2
  64. unsetenv body3
  65. unsetenv body4
  66. unsetenv cancel
  67. unsetenv risp
  68. unsetenv dir
  69.  
  70. delete RAM:T/INDICEFILES.TEMP QUIET
  71.